From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 16 Mar 1993 05:55:12 +0000 (+0000)
Subject: (xmenu_show): Do BLOCK_INPUT; unblock just before returning.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~96851
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=10c48c955d470150a800fd7122724bf1d9f738c6;p=emacs.git

(xmenu_show): Do BLOCK_INPUT; unblock just before returning.
---

diff --git a/src/xmenu.c b/src/xmenu.c
index 8c1f8a5ba24..452b4b9e298 100644
--- a/src/xmenu.c
+++ b/src/xmenu.c
@@ -321,11 +321,13 @@ xmenu_show (parent, startx, starty, line_list, enable_list, pane_list,
   if (pane_cnt == 0)
     return 0;
 
+  BLOCK_INPUT;
   *error = (char *) 0;		/* Initialize error pointer to null */
   GXMenu = XMenuCreate (XDISPLAY parent, "emacs");
   if (GXMenu == NUL)
     {
       *error = "Can't create menu";
+      UNBLOCK_INPUT;
       return (0);
     }
   
@@ -345,6 +347,7 @@ xmenu_show (parent, startx, starty, line_list, enable_list, pane_list,
 	{
 	  XMenuDestroy (XDISPLAY GXMenu);
 	  *error = "Can't create pane";
+	  UNBLOCK_INPUT;
 	  return (0);
 	}
       for (selidx = 0; selidx < line_cnt[panes]; selidx++)
@@ -361,6 +364,7 @@ xmenu_show (parent, startx, starty, line_list, enable_list, pane_list,
 	      /* free (datap); */
 	      *error = "Can't add selection to menu";
 	      /* error ("Can't add selection to menu"); */
+	      UNBLOCK_INPUT;
 	      return (0);
 	    }
 	}
@@ -412,6 +416,7 @@ xmenu_show (parent, startx, starty, line_list, enable_list, pane_list,
       break;
     }
   XMenuDestroy (XDISPLAY GXMenu);
+  UNBLOCK_INPUT;
   /* free (datap_save);*/
   return (entry);
 }